﻿Public Class Aboutfrm

    Private Sub Betafrm_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim w_pen As Single = 3
        Dim p As New Pen(Color.FromArgb(51, 51, 51), w_pen)
        e.Graphics.DrawRectangle(p, New Rectangle(1, 1, Width - w_pen, Height - w_pen))
        SetStyle(ControlStyles.UserPaint, True)
        SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
        SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        Me.BackColor = Color.LimeGreen
        Me.TransparencyKey = BackColor
    End Sub

    'Đổ bóng form
    Private Const CS_DROPSHADOW As Integer = 131072
    Protected Overrides ReadOnly Property CreateParams As System.Windows.Forms.CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ClassStyle = cp.ClassStyle Or CS_DROPSHADOW
            Return cp
        End Get
    End Property

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Close()
    End Sub
End Class